(url-mailto): Special case `mail'.

Don't test fboundp of `compose-mail'.

diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el
index 3b306bbcc8509fa2dfa14561b2dc3acf1fce8dcc..e9d5ff6fc158b05fe1a2754b3bfca9a23c3f398a 100644 (file)
--- a/lisp/url/url-mailto.el
+++ b/lisp/url/url-mailto.el
@@ -92,11 +92,11 @@
        (setq args (cons (list "to" to) args))))
 
     (setq subject (cdr-safe (assoc "subject" args)))
-    (if (fboundp url-mail-command)
-       (if (eq url-mail-command 'compose-mail)
-           (compose-mail nil nil nil 'new)
-         (funcall url-mail-command))
-      (mail 'new))
+    (if (eq url-mail-command 'compose-mail)
+       (compose-mail nil nil nil 'new)
+      (if (eq url-mail-command 'mail)
+         (mail 'new)
+       (funcall url-mail-command)))
     (while args
       (if (string= (caar args) "body")
          (progn